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7.1.13 memorandum describes a LISP program for deciding 
wither an"expression in the propositional calculus is a taut¬ 
ology according to Wang’s algorithm, Wang’s algorithm Is an 
excellent example of the kind of algorithm which is convenient¬ 
ly programmed in LISP, and the main purpose of this memorandum 
la to help would-be users of LISi see how to use it. 

1 , The Wang alg orithm. We c.uote from pages 5 and 6 of 

Wang’s paper. 

’’ The pr opositio nal calculus ( Syst ern_P) 

Since we are concerned with -practical feasibility, it is pre 
ferable to use more logical connectives to begin with when we 
wish actually to apply the procedure to concrete cases. For 
this purpose we use the five usual logical constants^ \not), 

\ (conjunction), V (disjunctipn),3> (implication), ^bi¬ 
conditional), with their usual interpretations. 

A propositional letter P, H, R, M *>* efc cetera, is a 

formula (and an "atomic formula 1 ) . If cf> are formulae, then 

^ &,<4> l V formulae. If r. 

p are strings of formulae (each, tn particular, might be an 
empty string or a single formula) and <f> is a formula,^ then v, 

<£ p is a string and ir-a*pis a sequent which, intuitively 
speaking, is true If and only if either some formula in the 
string t (the ’’antecedent") is false or some formula in the 
string p (the "consequent") is true, i,e., the conjunction of 
all formulae in the antecedent implies the disjunction of all 

formulae in the consequent. 

There are eleven rules of derivation. An initial rule 
states that a sequent with only atomic formulae (proposition 
letters) is a theorem if and only if a same formula occurs on 
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both sides cJ the arrow, Ther* are two rules for each of the 
five truth f junctions -ore introducing it into the antecedent, 
one introducing it into the consequent„ toe need only reflect 
on the intuitive meaning of the truth functions and the arrow 
sign to be convinced that theses rules are Indeed correct, La¬ 
ter on, a proof will be given of their completeness, l.e., all 
intuitively valid dequents are provable, and of their consist¬ 
ency, i.e,, all provable sequents are Intuitively valid. 

PI. Initial rule: if A„ Y are strings of atomic formulae, then 
A 3/j a theorem if sob© atomic formula occurs on both 

sides c* ‘ the arrow. 

In the ten rules listed below, A and £ are always strings 
(possibly empty) of atomic forutiae As a proof procedure in 
the usual sense, each proof begins with a finite set of cases 
of PI and continues with succe*sive consequences obtained by 
the other rules. As will be explained below, a proof looks 
like a tree structure growing hr, the wrong direction. We shall, 
however, be chiefly Interested in doing the step backwards, 
thereby incorporating the process of searching for a proof. 

The rules are so designed that given any sequent, we can 
find the first logical connect- \e, l„e„, the leftmost symbol 
in the whole sequent that is a connective, and apply the ap¬ 
propriate rule to eliminate it, thereby resulting in one or 
two premises which, t^ken together, are equivalent to the con- 

P ■ 

elusion. This process can be repeated until we reach a finite 
set of sequents with atomic fornulae only. Each connective- 
free sequent can then be tested for being a theorem or not, by 
the initial rule. If all of them are theorems, then the or¬ 
iginal sequent is a theorem and we obtain a proof; otherwise 
we get a counterexample and a disproof. Some simple samples 
w!imake this clear. 
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For example t given any theorem of "Principle", we can 
automatically prefix an arrow to it and apply the rules to look 
for a proof. When the main corrective is , it is simpler, 
though not necessary, to replace the main connective by an ar¬ 
row and proceed. For example: 

*2.45> \— : ^(PVQ) • "-P, 

*5.21: \— : P 4 

can be rewritten and proved as follows. 

*2.45 ^(P^Qj-^—P (l) 

(1) —-^P.PVQ (g) 

(2) P—^PVQ (3) 


* 5.21 


( 1 ) 

■(a) 

(3) 

(4) 

(5) 
(5) 


P,Q 


VALID 


P$ —-'Q*0*-PSSQ 
-~'P &. 

~>P, ~ Q-^pm»Q 

Q —* P ss Q p P 

* 

W' P ~ 3 SSS Q , P f Q, 

P-vQ,P,Q 
VALID 
Q —^P,P,Q 
VALID 


QED 

( 1 ) 

(2) 

(3) 

(4) 

(5) 




P2a. Rule 
P2b. Rule 


P3a. 

P3bo 

P4a. 

P4b. 

P5a. 

P5b. 

P6a. 

P6b. 


Rule 
Rule A 

Rule -5 
Rule v 


Rule 


Rule 


Rule 

Rule 


4 : 


v s 


D: 


If 4 , £ —*► A.p.then 5 * -"*-A, * P- 

If A,p—— r,<f >„then A,4. >P-—W-V. 

• ' ' ^ . . '■'.» 4 s , ' lk f-j,?'. 

If£-^A # 4>P and£^A,^,p,then€~*» A, <f> 4 ^p„ 

If A,<£ ,^,p~**ir,theit A , £ At }jr,p~-^Tr t 

It % ■ " "W a v^,p. 

If A, , p —►it and A # 4, £ then A, v ^,p-^.ir. 

If £,4 -^4,y,p,the B T-^A,4> 

If Aand A,pir, 4 ,then A, 4>Of>P 

If 4>£—and Iff X** ^ 4 « 

St ,A,p«~^.i' and j’df.then X,<^> SsS'jp’,p■ 


■Affi 



2. 'E he LISP program . We define a function theorem £sj 
whose value la truth or falsity according to whether the sequ ent 
a ia theorem,. 

The sequent 

a; j 

is represented by the S-expression 
a 1 : (ARROw/(^^..,^} # (^,... f ^)'.) 

where in each case the ellipsis .denotes missing terms. 
Propositional formulae are represented: as follows: 

1. For; "aitomic formulae" (Wang's terminology) we use 
"atomic symbols" (LISP terminology). 

2. The following table gives our ’Cambridge Polish" way 
of representing propositional formulae with given main con¬ 
nectives t . 

1. tr> * y becomes (NOT, 4 -^) 

2. becomes 1 

3. W becomes (OR, y 1 ,^ 1 ) 

becomes (IHPLIES^’f 1 f t’ 1 ) 

5.^35^ becomes 

Thus the sequent 

I * ' : • ' - :v . ’ • 

is represented by 

(ARROW,((AND,(NOT,P),(NOT,Q))),((SQUIV,P,Q),(OR,R,S))) 

The S-function theorem c?l is given .in? terms of aux - 
illary functions as follows: 

theoremQs"]) » thl(NILjPIL|aadr(V)iCaddr(s^][ 

thl(aija2*,a;<Q « 

member (car ([a; cm V 
thi Qpembep (oar fe‘ 

cdr fal: cl: T-v th 1 (al t jWmbsr|car (i|k a2^--H»»a2; 

T cons Tear fal ; asTl: cdrfal s trlfl 
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th2^ct;a2;cljc2;cj « {nuuQ 

atom (car -~-3»th2 Jal ja2; j^mber{0ar|o2i ci]--»ci * 
cons (oarjc] jcijJ j c 2; cdr [cjQ ;T—► th2 Qd j a2 j c J ♦, £ 
member (car[c*J jc2j--->'c2;T 
cone (car [cfj ;c2j jcdrjVQ] 

th[al;a2;cl;c** [null ^null{a2J A ^hr L 

car Jc2j;alia2}cljcdr [c2}J ^T—»>th J (car [a2]; alj 

cdr (a2j»cJ;c2j[] 


th is the mail: pr 
place, theorem , 
on in the sequent 
s of th are: 


cate through which all the recursions 
and th2 break up and sort the infor- 
the benefit of ttu The four argu- 






earful 

V» .«»' 


thrjii;al;a2|cl;c-2j * Q 

car[u} » NOT-^thli[Ga<lr(u3jaXja2}cl;o2/ 
carQij * AND-s^thir[cadr{u3;aiia2;cl;c2] a thirQ 

caddr [ul; ja2 j cl j c 2J 
car GO ** OR—3^th2r(ddrG«QiaJl>a2}ci j©§J 
car GO « IMPLISS -> th 1 i (oadr QO; caddr GO > ai; a2 j cl; c 2^ 
car tO' * EQDIV -o* th 11 (cadrGO j oaddr [uO;ai;a2; c i$ c Jj A thll£ 

caddr[u3; oadr Qti^i ai;a2* ci; oS^j 


car 


car GO - IMPLIES 


can u 


The functions thjJ , thlr , a hfl , thgan t&£t distribute the 
parts of the reduced formula to the appropriate places in the 

s ■ ■ ■ 

reduced sequent. 

These functions are 

thiilvialiaSiciioil rafc©ffifv~U->inaraber(vroilV 


(vjal; a2jci;o<0 {fooir(y}--^inember (v;oij v/ 
th (con8Gy;aO ;a2ici ;o^ ;T -^.tji©jafcar |vjc2jv 
th [ai; cons fv; a2j} ci; «2jf 


thir^yjatja2jcj jc2j - [atom {y3”^*®ieinber (yjaij ^ 
th[ai;a2;cons[v;cl] ;c2*J;T—meiaber [v ;a2|s/ 
th ^Ija2} c i; cone|V>a2]n 


[y;ai;a2; cljc2] * [atoia [car GcQ"~^^^ e r(car[v} 

t h i 1 [cadr [ep» cSp; T—»memb 

carLvljc2]v 

thi^ JcadrOO jai jconn[carGr‘] ja^icl^o^y 


th2r [v;ai ja2 


a2jc4,;c^- « ■ [atoic^ar^^ lA i>B>c aber[carfeQ;ad} v 

adr C. 

&W> ■ 

3r fyl j ai ;a2j ci i cons for^I^e2141 


VjJ<m 








thiijvi;v2jai;a2;cijc^ « fatora ! {yij-^raember |v4 jeij V 
thir{y2jcorts’:(v4’[yi jc2]] n/ 

thir {v2;a.i jcohs fvi jaS^jej 



Finally the function member la defined by 

meraberjxjiQ » 'V'nullQj]^ fequal^xjcar(ujlv/member jxjcdr[i 


3 * g^Mgg„g£ Ojgam.aa Wri tt en ln_SH&3feiiions . The pre¬ 
sent section is redundant for thoaewho fully understand LISP. 
In it we give the translation of the funet Idris of the preceding 
section into S-expresslons. 

We have 
DEFINE ({ 

(THEOREM (LAMBDA (S) (TH1 NIL NIL (CADR S) (CADDR S)))) 


(TH (LAMBDA (A1 A2 01 02) (COND i (NULL A2) 
(CAR C2) A1 A2 Cl (CDR C2));) (T (TflL 
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(NOT (NULL C2)) 
A?) Al (CDR A2) 



(TH1 (LAMBDA (A1 A2 A C) (COND ({NULL A) 

(TH2 Al A2 NIL NIL C» (T 

(OR (MBMBOB (CAR A) C) (COND ((ATOM (CAR A)) 
(TH1 (COND ((MEMBOB (CAR A) A1 } A|) 

(T (CONS (CAR A) Al))) A2 (CDR A) C)) 

(T (TH1 Al (COND ((MBMBOB (CAR A) A2) A2) 

(T (CONS (CAR A) A2))) (CDR A) C}))))))) 


(TH2 (LAMBDA (Al A2 Cl C2 C) (COND 
((NULL C) (TH Al A2 Cl 02)) 

((ATOM (CAR C)) (TH2 Al A2 (COND 
((MEMBOB (CAR C) Cl) Cl) (T 
(CONS (CAR C) Cl))) 02 (CDR C))) . 

(T (TH2 Al A2 Cl (COND {(MEMBOB 
(CAR C) C2) C2) (T {CONS (CAR C) C2))) 
(CDR 0)))))) 







(THL (LAMBDA- (U Al AS Cl 02) ( COND 


((EQ (CAR U) (QUOTE NOT)) (TH1R (OADR V) Al A2 Cl C2>) 

((EQ (CAR U) (QUOTE AND)) (TH2L (CM U) Al At Cl C2» 

((EQ (CAR U) (QUOTE OR)) (AND (THIL (GAM U) Al A2 Cl 02) 

(mil. (CADDR U) Al A2 Cl 02) )) 

((EQ (GAR U) (QUOTE IMPLIES)) (AND (THIL {CADDR U) Al A2 Cl 
C2) (TH1R (CADR U5 Al A2 C1C2) )) 

((EQ (CAR U) (QUOTE EQUIV)) (AND (TH2L (CDR U) Al A2 Cl C2) 

(TH2R (CDR U) Al A2 Cl C2) )) 

(T (ERROR (LIST (QUOTE m) U Al A2 Cl C2))) 


(THR (LAMBDA (U Al A2 Cl 02} (COND 

((EQ (CAR U) (QUOTE NOT)) (THIL (CAM U) A1A2 Cl C2)) 

((EQ (CAR U) (QUOTE AND)) (AND (TH1R (CADR U) Al A2 Cl C2) 

(raiR (CADDR U) Al At Cl C2) )) 

((EQ (CAR U) (QUOTE OR)) (TH2R (CSS U) Al A2 Cl C2)) 

((EQ (CAR U) (QUOTE IMPLIES)) (TPU (CAM U) (CADDR U) 

Al At Cl C2)) % 

((EQ (CAR U) (QU01® EQUIV)) (AND (THU (CAM U) (CADDR U) 

Al A2 Cl C2) (rail (CADDR U) (CAM 0) Al At 01 C2) )) 

(T (ERROR (LIST (QUOTE THR) D Al At Cl C2))> 

)}) ; ' ' 

(THIL (LAMBDA (V Al A2 Cl C2 ) (COND 
((ATOM V) (OR (MEMBER V Cl) 

(TH (CONS V Al) A2 Cl C2) )) 

(T (OR (MEMBER V 02) (TH Al (CONS V A3) Cl C2) )) 

))) 

(THLR (LAMBDA (V Al A2 Cl C2) (COND 

((ATOM V) (OR (!®MBER V Al) 

(TH Al A2 (CONS V Cl) C2) )) 

(T (OR (MEMBER V A2) (TH Al A2 Cl (CONS V Ct)))) 















t 
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n order to apply the method to 


we write 


p pvq 


THEOREM 

( (ARROW, (f) A (OR,F,Q>)» 

C) 






4, Wang 5 a Algorithm and Ambiguous Functions . This section 
contains a remark on the theory of computation suggested by the 
experience of programming Wang’s algorithm. The functions giv¬ 
en in section 2 owe some of their complexity to an effort to gain 
efficiency and could be made still more efficient at the cost of 
greater complexity. Namely, in the verbal description of the al¬ 
gorithm in section 1 it is not specifled ho* the term in the se¬ 
quent to be acted on first is chcsen. This choice.does not af¬ 
fect. the ultimate result, l.e, whether a sequent is found to be 
a theorem, but does affect the time required. 

This suggests that for the purposes of proving theorems 
about computable functions we Introduce the concept of ambigu¬ 
ous function and certain of its properties. 

An ambiguous function f assigns to certain n-tuplets 
X 1 *'“'*n a value f ( x j »*••»* n )* However, this value is not com¬ 
pletely determined by the function f and the n-tuplet x 1 ,...x n 
but may be any member of a set U(#,x,,.,.,x n ). No mechanism, 
probabilistic or otherwise is provided for deciding which ele¬ 
ment will be chosen. Ambiguous functions may be combined to 
get new functions by composition, conditional expressions, and 
recursion. 

In order to consider the class C&{ij of ambiguous func¬ 
tions computable in terras of a class of basic functions f , 

{This corresponds to in { 4') we introduce the ambiguity 

operator amb . amb(x,y) is an aiablguous function of x and y 
whose value may be either x or y. Other ambiguities may be 




j 


atab. For axa^le/we eaiil^fiiie 

£} « C«^zmll{ j}^r«U.l{cdr[^]] -*• ear[i]j 
llfsdrfi]] -*» ambicap£ J3;^blisCodrtlj 3}] 

ave a list of all atomic, symbols available 
unction vfhofit- value is a.rabi£ruou 3 amonsc all 


zJs^yy. 




' s**i 





























1 , Wang, Hao, ’'Toward MechaftUal ..pfemafttittP 
of Research and Development;, Vol; * 

2. McCarthy, John, Recursive Fnhjfetjlon®, orj[^ 
pi* 0 S s 1 ons &iid : thsAi^ 


39BIE* 

















CS-TR Scanning Project 
Document Control Form 


Date : H / 30 / C(S 


Report # fK \^ i 

Each of the following should be identified by a checkmark: 
Originating Department: 

Artificial Intellegence Laboratory (Al) 

□ Laboratory for Computer Science (LCS) 


Document Type: 

□ Technical Report (TR) Technical Memo (TM) 

□ Other:_ 


Document Information 

Originals are: 

Single-sided or 

□ Double-sided 


Number of pages: 13p7 • 

Not to include DOD forms, printer instructions, etc... original pages only. 

Intended to be printed as : 

□ Single-sided or 

M Double-sided 


Print type: 

□ Typewriter Q Offset Press □ Laser Print 

□ InkJet Printer Q Unknown Other: fHl 

Check each if included with document: 


□ DOD Form □ Funding Agent Form □ Cover Page 

□ Spine □ Printers Notes □ Photo negatives 

□ Other: __ 

Page Data: 


Blank P aoesnw nunwwi: 

Photographs/Tonal Material (by page number). 


f- 


Other (note deschpborVpage number). 

Description: 


Page Number 

i - 13 ) 1-13 

f'J ^ 5<-P>rJ r ^N)'R-0L 




Scanning Agent Signoff: 

Date Received: III 3v / 9 5 Date Scanned: J2J_LU3£ 


Date Returned: JdjjUJSL 


Scanning Agent Signature:. 




Rev 0/04 DS/LCS Document Control Form cstrform.vsd 



Scanning Agent Identification Target 


Scanning of this document was supported in part by 

the Corporation for National Research Initiatives, 
using funds from the Advanced Research Projects 
Agency of the United states Government under 
Grant: MDA972-92-J1029. 


The scanning agent for this project was the 
Document Services department of the M.I.T 
Libraries. Technical support for this project was 
also provided by the M.I.T. Laboratory for 
Computer Sciences. 


Scanned 

Date: j if B ji TT5 

M.I.T. Libraries 
Document Services 


darptrgt.wpw Rev. 9/94 


